10 GOTO100 50 REM 51 S=54272:FORE=STOS+28:POKEE,0:NEXT 52 POKE54296,15:POKE54277,42:POKE54278,250 53 POKE54276,23:POKE54273,23:POKE54272,191 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT 55 POKE54296,0:RETURN 60 REM 61 S=54272:FORE=STOS+28:POKEE,0:NEXT 62 POKE54296,15:POKE54277,18:POKE54278,242 63 POKE54276,33:POKE54273,4:POKE54272,48 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT 65 POKE54296,0:RETURN 70 REM 71 S=54272:FORE=STOS+28:POKEE,0:NEXT 72 POKE54296,5:POKE54277,42:POKE54278,250 73 POKE54276,23:POKE54273,23:POKE54272,191 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT 75 POKE54296,0:RETURN 80 FORT=1TO500:NEXT:RETURN 81 FORT=1TO1000:NEXT:RETURN 82 FORT=1TO2000:NEXT:RETURN 83 FORT=1TO3000:NEXT:RETURN 84 FORT=1TO4000:NEXT:RETURN 85 FORT=1TO5000:NEXT:RETURN 90 GOSUB81:GOSUB70 91 PRINT"[154] [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE 92 [161]R$:[139]R$[179][177][199](32)[167]92 93 [142] 95 [153]" PEEKETTER LUCK WITH THE NEXT QUESTION.OPEN":[142] 100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0 101 [153]"LOAD ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null) 102 PRINT" [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211] 105 [153]" WAIT"; 110 [153]" WAIT"; 115 [153]" (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC WAIT"; 120 [153]" WAIT"; 125 [153]" CHR$RADE 3 (null)ART 2 WAIT"; 130 [153]" WAIT"; 135 [153]" (null)ESSON 13 WAIT"; 140 [153]" WAIT"; 145 [153]"  (null)WO (null)TEP (null)ROBLEMS OPEN WAIT"; 150 [153]" WAIT"; 155 [153]" WAIT" 160 [153]" WHC " 165 [141]90 170 [153]"LOAD ATNND AWAY WE GO......." 175 [141]81:[141]50:[141]80 200 [153]"PRINT#LOAD  (null)UESTION 1 WAITOPEN":Z[178]0 205 [153]" LEFT$ELEN PAID 6 CENTS FOR A PEN AND 210 PRINT" 10 CENTS FOR A NOTEBOOK. 215 [153]" LEFT$OW MUCH CHANGE SHOULD SHE GET FROM A QUARTER?" 220 [141]81:[141]70 225 [153]" ON" 230 [133] A$ 240 [139]A$[179][177]"9"[175]A$[179][177]"$.09"[175]A$[179][177]"9 CENTS"[167] 270 250 [153]"SYS LEN(null)(null)(null)VALLEN(null)!! WAITOPEN":[141]50:[141]82 260 P[178]P[170]1:[137]300 270 [153]"DEF (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1 275 [139]Z[178]2[167]G[178]G[170]1:[137]285 277 [153]"SYSON (null)RY AGAIN OPEN" :[141]70:[141]81:W[178]W[170]1 279 [153]"ON ONONONONONONON":[137]225 285 [153]"ONONSYS (null)HE CORRECT ANSWER IS  9 SYS CENTS.":[141]82 290 [153]" 6 + 10 = 16 ":[141]82 292 [153]" AND 25 - 16 = 9 295 GOSUB82:GOSUB90 300 PRINT"[152][147]  [209]UESTION 2 [146][159]":Z=0 305 PRINT" [199]RACE BOUGHT A CAN OF SOUP FOR 310 [153]" 60 CENTS AND 4 APPLES FOR 25 CENTS. 315 PRINT" [200]OW MUCH CHANGE WILL THE GROCER GIVE HER FROM A DOLLAR?" 320 GOSUB81:GOSUB70 325 PRINT" [145]" 330 INPUT A$ 340 IFA$<>"15"ANDA$<>"15 CENTS"ANDA$<>"$.15"THEN370 350 PRINT"[158] [195][207][210][210][197][195][212]!! [146][159]":GOSUB50:GOSUB82 360 P=P+1:GOTO400 370 PRINT"[150] [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1 375 IFZ=2THENG=G+1:GOTO385 377 PRINT"[158][145] [212]RY AGAIN ":GOSUB70:GOSUB81:W=W+1 379 PRINT"[159][145][145] [145][145][145][145][145][145][145]":GOTO325 385 PRINT"[145][145][158] [212]HE CORRECT ANSWER IS  15 [158] CENTS.":GOSUB82 390 PRINT" 60 + 25 = 85 ":GOSUB82 392 PRINT" AND 100 - 85 = 15 " 395 GOSUB82:GOSUB90 400 PRINT"[152][147]  [209]UESTION 3 [146][159]":Z=0 405 PRINT" [200]OW MUCH CHANGE DID [205]ARY RECEIVE 410 [153]" FROM A DOLLAR WHEN SHE BOUGHT A 415 PRINT" DOZEN APPLES FOR 55 CENTS AND A BAR OF SOAP FOR 7 CENTS? 420 [141]81:[141]70 425 [153]" ON" 430 [133] A$ 440 [139]A$[179][177]"38"[175]A$[179][177]"38 CENTS"[175]A$[179][177]"$.38"[167]470 450 [153]"SYS LEN(null)(null)(null)VALLEN(null)!! WAITOPEN":[141]50:[141]82 460 P[178]P[170]1:[137]500 470 [153]"DEF (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1 475 [139]Z[178]2[167]G[178]G[170]1:[137]485 477 [153]"SYSON (null)RY AGAIN ":[141]70:[141]81:W[178]W[170]1 479 [153]"OPENONON ONONONONONONON":[137]425 485 [153]"ONONSYS (null)HE CORRECT ANSWER IS  38 SYS CENTS.":[141]82 490 [153]" 55 + 7 = 62 ":[141]82 492 [153]" AND 100 - 62 = 38 " 495 [141]82:[141]90 500 [153]"PRINT#LOAD  (null)UESTION 4 WAITOPEN":Z[178]0 505 [153]" (null)RS. PEEKROWN PAID 55 CENTS FOR A TURNIP 510 PRINT" AND $1.30 FOR A BAG OF POTATOES. 515 [153]" LEFT$OW MUCH CHANGE DID SHE GET FROM 517 PRINT" A 2 DOLLAR BILL?" 520 GOSUB81:GOSUB70 525 PRINT" [145]" 530 INPUT A$ 540 IFA$<>"$.15"ANDA$<>"15 CENTS"ANDA$<>"15"THEN 570 550 PRINT"[158] [195][207][210][210][197][195][212]!! [146][159]":GOSUB50:GOSUB82 560 P=P+1:GOTO600 570 PRINT"[150] [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1 575 IFZ=2THENG=G+1:GOTO585 577 PRINT"[158][145] [212]RY AGAIN ":GOSUB70:GOSUB81:W=W+1 579 PRINT"[159][145][145] [145][145][145][145][145][145][145]":GOTO525 585 PRINT"[145][145][158] [212]HE CORRECT ANSWER IS  15 [158] CENTS.":GOSUB82 590 PRINT" .55 + 1.30 = 1.85 ":GOSUB82 592 PRINT" AND 2.00 - 1.85 = .15 595 [141]82:[141]90 600 [153]"PRINT#LOAD  (null)UESTION 5 WAITOPEN":Z[178]0 605 [153]" MID$ENNY BOUGHT A TAPE CASSETTE FOR $3 610 PRINT" AND A COMPACT DISK FOR $9.75. 615 [153]" LEFT$OW MUCH CHANGE DID SHE GET FROM A TWENTY DOLLAR BILL?" 617 [153]" (STR$ON'T FORGET THE $ SIGN)" 620 [141]81:[141]70 625 [153]" ON" 630 [133] A$ 640 [139]A$[179][177]"$7.25"[167] 670 650 [153]"SYS LEN(null)(null)(null)VALLEN(null)!! WAITOPEN":[141]50:[141]82 660 P[178]P[170]1:[137]700 670 [153]"DEF (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1 675 [139]Z[178]2[167]G[178]G[170]1:[137]685 677 [153]"SYSON (null)RY AGAIN ":[141]70:[141]81:W[178]W[170]1 679 [153]"OPENONON ONONONONONONON":[137]625 685 [153]"ONONSYS (null)HE CORRECT ANSWER IS  $7.25 SYS ":[141]82 690 [153]" 3.00 + 9.75 = 12.75 ":[141]82 692 [153]" AND 20.00 - 12.75 = 7.25 695 GOSUB82:GOSUB90 700 PRINT"[152][147]  [209]UESTION 6 [146][159]":Z=0 705 PRINT" [193]T A GARAGE SALE, [212]IM BOUGHT A BALL 710 [153]" FOR $2.50 AND A BAT FOR $2.30. 715 PRINT" [200]OW MUCH CHANGE DID HE GET FROM A FIVE DOLLAR BILL?" 725 PRINT" [145]" 730 INPUT A$ 740 IFA$<>"20"ANDA$<>"20 CENTS"ANDA$<>"$.20"THEN770 750 PRINT"[158] [195][207][210][210][197][195][212]!! [146][159]":GOSUB50:GOSUB82 760 P=P+1:GOTO800 770 PRINT"[150] [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1 775 IFZ=2THENG=G+1:GOTO785 777 PRINT"[158][145] [212]RY AGAIN ":GOSUB70:GOSUB81:W=W+1 779 PRINT"[159][145][145] [145][145][145][145][145][145][145]":GOTO725 785 PRINT"[145][145][158] [212]HE CORRECT ANSWER IS  20 [158] CENTS.":GOSUB82 790 PRINT" 2.50 + 2.30 = 4.80 ":GOSUB82 792 PRINT" AND 5.00 - 4.80 = .20 " 795 GOSUB82:GOSUB90 800 PRINT"[152][147]  [209]UESTION 7 [146][159]":Z=0 805 PRINT" [200]ELEN BOUGHT A BAG OF FLOUR FOR 810 [153]" $2.60, A LOAF OF BREAD FOR $1.40, 815 PRINT" AND A POUND OF BUTTER FOR $1.80 817 [153]" LEFT$OW MUCH CHANGE DID SHE GET FROM A TEN DOLLAR BILL? 820 GOSUB81:GOSUB70 825 PRINT" [145]" 830 INPUT A$ 840 IFA$<>"$4.20"THEN 870 850 PRINT"[158] [195][207][210][210][197][195][212]!! [146][159]":GOSUB50:GOSUB82 860 P=P+1:GOTO900 870 PRINT"[150] [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1 875 IFZ=2THENG=G+1:GOTO885 877 PRINT"[158][145] [212]RY AGAIN ":GOSUB70:GOSUB81:W=W+1 879 PRINT"[159][145][145] [145][145][145][145][145][145][145]":GOTO825 885 PRINT"[145][145][158] [212]HE CORRECT ANSWER IS  $4.20 [158] ":GOSUB82 890 PRINT" 2.60 + 1.40 +1.80 = 5.80 ":GOSUB82 892 PRINT" AND 10.00 - 5.80 = 4.20 895 [141]82:[141]90 900 [153]"PRINT#LOAD  (null)UESTION 8 WAITOPEN":Z[178]0 905 [153]" RIGHT$ BOUGHT 6 QUARTS OF OILS AT $1.90 A QUART. 910 PRINT" [200]OW MUCH CHANGE DO [201] GET FROM A $20 915 [153]" BILL?" 920 [141]81:[141]70 925 [153]" ON" 930 [133] A$ 940 [139]A$[179][177]"$8.60"[167]970 950 [153]"SYS LEN(null)(null)(null)VALLEN(null)!! WAITOPEN":[141]50:[141]82 960 P[178]P[170]1:[137]1000 970 [153]"DEF (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1 975 [139]Z[178]2[167]G[178]G[170]1:[137]985 977 [153]"SYSON (null)RY AGAIN ":[141]70:[141]81:W[178]W[170]1 979 [153]"OPENONON ONONONONONONON":[137]925 985 [153]"ONONSYS (null)HE CORRECT ANSWER IS  $8.60 SYS ":[141]82 990 [153]" 1.90 X 6 = 11.40 ":[141]82 992 [153]" AND 20.00 - 11.40 = 8.60 " 995 [141]82:[141]90 1000 [153]"PRINT#LOAD  (null)UESTION 9 WAITOPEN":Z[178]0 1005 [153]" CHR$EORGE BOUGHT A BIKE FOR $179.50. 1010 PRINT" [200]OW MUCH CHANGE DID HE GET FROM 1015 [153]" NINE TWENTY DOLLAR BILLS?" 1020 [141]81:[141]70 1025 [153]" ON" 1030 [133] A$ 1040 [139]A$[179][177]"50"[175]A$[179][177]"50 CENTS"[175]A$[179][177]"$.50"[167]1070 1050 [153]"SYS LEN(null)(null)(null)VALLEN(null)!! WAITOPEN":[141]50:[141]82 1060 P[178]P[170]1:[137]1100 1070 [153]"DEF (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1 1075 [139]Z[178]2[167]G[178]G[170]1:[137]1085 1077 [153]"SYSON (null)RY AGAIN ":[141]70:[141]81:W[178]W[170]1 1079 [153]"OPENONON ONONONONONONON":[137]1025 1085 [153]"ONONSYS (null)HE CORRECT ANSWER IS  50 SYS CENTS.":[141]82 1090 [153]" 9 X 20 = 180 ":[141]82 1092 [153]" AND 180.00 - 179.50 = .50 " 1095 [141]82:[141]90 1100 [153]"PRINT#LOAD  (null)UESTION 10 WAITOPEN":Z[178]0 1105 [153]" (null)HE (null)OHAWKS SCORED 17 GOALS AND THE 1110 PRINT" [201]ROQUOIS SCORED 9 GOALS. 1115 [153]" LEFT$OW MANY MORE GOALS DID THE (null)OHAWKS SCORE?" 1120 [141]81:[141]70 1125 [153]" ON" 1130 [133] A$ 1140 [139]A$[179][177]"8"[167] 1170 1150 [153]"SYS LEN(null)(null)(null)VALLEN(null)!! WAITOPEN":[141]50:[141]82 1160 [137]1200 1170 [153]"DEF (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1 1175 [139]Z[178]2[167]G[178]G[170]1:[137]1185 1177 [153]"SYSON (null)RY AGAIN ":[141]70:[141]81:W[178]W[170]1 1179 [153]"OPENONON ONONONONONONON":[137]1125 1185 [153]"ONONSYS (null)HE CORRECT ANSWER IS  8 SYS GOALS.":[141]82 1190 [153]" 17 - 9 = 8 " 1195 [141]82:[141]90 1200 [153]"LOAD  (null)EPORT LENARD WAIT" 1205 D[178]W[171]G:C[178]10[171]W 1210 [153]"PRINT 1. (null)UESTIONS ANSWERED CORRECTLY ON FIRST TRY: 1215 PRINT"  ";C 1220 PRINT"[129] 2. [209]UESTIONS ANSWERED CORRECTLY ON SECOND TRY: 1225 [153]"  ";D 1230 [153]"DEF 3. (null)UESTIONS MISSED ON SECOND TRY: 1235 PRINT"  ";G;"" 1245 GOSUB90 1250 PRINT"[158][147] [217]OU HAVE A CHOICE: 1255 [153]" (null)RESS  (null) WAIT TO REPEAT THIS LESSON 1260 PRINT" [208]RESS  [205] [146] TO RETURN TO THE MENU[159]" 1265 GETR$:IFR$<>"R"ANDR$<>"M"THEN1265 1270 IFR$="R"THENRESTORE:GOTO100 1275 RESTORE 1280 PRINT"[147] [210]ETURNING TO THE DISK MENU 1285 [147]"MENU",8 1290 [138] 1295 [128] 1300 [143] BILL CUMBERLAND 90:12:21